home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / C-Cl / ClientListII.cpt / Client List II / background_2637.txt < prev    next >
Text File  |  1987-11-29  |  13KB  |  585 lines
  1. -- background: 2637 from stack: in
  2. -- bmap block id: 10772
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: File Card
  6.  
  7.  
  8. -- part 6 (button)
  9. -- low flags: 00
  10. -- high flags: 2000
  11. -- rect: left=476 top=231 right=256 bottom=504
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 1014 / 1014
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Prev
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   go to prev card
  23. end mouseUp
  24.  
  25.  
  26.  
  27. -- part 7 (button)
  28. -- low flags: 00
  29. -- high flags: 2000
  30. -- rect: left=476 top=202 right=227 bottom=504
  31. -- title width / last selected line: 0
  32. -- icon id / first selected line: 1013 / 1013
  33. -- text alignment: 1
  34. -- font id: 0
  35. -- text size: 12
  36. -- style flags: 0
  37. -- line height: 16
  38. -- part name: Next
  39. ----- HyperTalk script -----
  40. on mouseUp
  41.   go to next card
  42. end mouseUp
  43.  
  44.  
  45.  
  46. -- part 8 (button)
  47. -- low flags: 00
  48. -- high flags: 2000
  49. -- rect: left=476 top=261 right=286 bottom=504
  50. -- title width / last selected line: 0
  51. -- icon id / first selected line: 1012 / 1012
  52. -- text alignment: 1
  53. -- font id: 0
  54. -- text size: 12
  55. -- style flags: 0
  56. -- line height: 16
  57. -- part name: Return
  58. ----- HyperTalk script -----
  59. on mouseUp
  60.   push recent card
  61.   visual effect iris close
  62.   pop card
  63. end mouseUp
  64.  
  65.  
  66.  
  67. -- part 9 (button)
  68. -- low flags: 00
  69. -- high flags: 2004
  70. -- rect: left=2 top=22 right=41 bottom=44
  71. -- title width / last selected line: 0
  72. -- icon id / first selected line: 1009 / 1009
  73. -- text alignment: 1
  74. -- font id: 0
  75. -- text size: 12
  76. -- style flags: 0
  77. -- line height: 16
  78. -- part name: View
  79. ----- HyperTalk script -----
  80. on mouseUp
  81.   show all cards
  82. end mouseUp
  83.  
  84.  
  85.  
  86. -- part 10 (button)
  87. -- low flags: 00
  88. -- high flags: 2004
  89. -- rect: left=2 top=46 right=65 bottom=44
  90. -- title width / last selected line: 0
  91. -- icon id / first selected line: 11045 / 11045
  92. -- text alignment: 1
  93. -- font id: 0
  94. -- text size: 12
  95. -- style flags: 0
  96. -- line height: 16
  97. -- part name: Home
  98. ----- HyperTalk script -----
  99. on mouseUp
  100.   push card
  101.   visual effect iris close
  102.   go home
  103. end mouseUp
  104.  
  105.  
  106.  
  107. -- part 35 (button)
  108. -- low flags: 00
  109. -- high flags: A004
  110. -- rect: left=49 top=46 right=65 bottom=91
  111. -- title width / last selected line: 0
  112. -- icon id / first selected line: 0 / 0
  113. -- text alignment: 1
  114. -- font id: 0
  115. -- text size: 12
  116. -- style flags: 0
  117. -- line height: 16
  118. -- part name: Sort
  119. ----- HyperTalk script -----
  120. on mouseUp
  121.   answer "Sort all cards of this stack according to:" with "Name" or "Co Name" or "Catagory"
  122.   if it is "Name"
  123.   then sort by Last word of first line of field "Name"
  124. else if it is "Co Name"
  125. then sort by first word of first line of field "Company Name"
  126. else if it is "Catagory"
  127. then sort by first word of first line of field "cat"
  128. end mouseUp
  129.  
  130.  
  131.  
  132. -- part 42 (field)
  133. -- low flags: 00
  134. -- high flags: 6001
  135. -- rect: left=165 top=151 right=172 bottom=409
  136. -- title width / last selected line: 0
  137. -- icon id / first selected line: 0 / 0
  138. -- text alignment: 0
  139. -- font id: 2
  140. -- text size: 12
  141. -- style flags: 0
  142. -- line height: 16
  143. -- part name: Home Phone
  144.  
  145.  
  146. -- part 44 (field)
  147. -- low flags: 00
  148. -- high flags: 6000
  149. -- rect: left=352 top=103 right=124 bottom=486
  150. -- title width / last selected line: 0
  151. -- icon id / first selected line: 0 / 0
  152. -- text alignment: 0
  153. -- font id: 2
  154. -- text size: 12
  155. -- style flags: 0
  156. -- line height: 16
  157. -- part name: cat
  158.  
  159.  
  160. -- part 46 (button)
  161. -- low flags: 00
  162. -- high flags: A004
  163. -- rect: left=49 top=22 right=41 bottom=91
  164. -- title width / last selected line: 0
  165. -- icon id / first selected line: 0 / 0
  166. -- text alignment: 1
  167. -- font id: 0
  168. -- text size: 12
  169. -- style flags: 0
  170. -- line height: 16
  171. -- part name: Find
  172. ----- HyperTalk script -----
  173. on mouseUp
  174.   doMenu "FIND..."
  175. end mouseUp
  176.  
  177.  
  178.  
  179. -- part 48 (field)
  180. -- low flags: 00
  181. -- high flags: 6000
  182. -- rect: left=161 top=23 right=44 bottom=486
  183. -- title width / last selected line: 0
  184. -- icon id / first selected line: 0 / 0
  185. -- text alignment: 0
  186. -- font id: 2
  187. -- text size: 12
  188. -- style flags: 256
  189. -- line height: 16
  190. -- part name: Name
  191.  
  192.  
  193. -- part 49 (field)
  194. -- low flags: 00
  195. -- high flags: 6000
  196. -- rect: left=161 top=43 right=64 bottom=486
  197. -- title width / last selected line: 0
  198. -- icon id / first selected line: 0 / 0
  199. -- text alignment: 0
  200. -- font id: 2
  201. -- text size: 12
  202. -- style flags: 0
  203. -- line height: 16
  204. -- part name: Company Name
  205.  
  206.  
  207. -- part 50 (field)
  208. -- low flags: 00
  209. -- high flags: 6000
  210. -- rect: left=161 top=63 right=84 bottom=486
  211. -- title width / last selected line: 0
  212. -- icon id / first selected line: 0 / 0
  213. -- text alignment: 0
  214. -- font id: 2
  215. -- text size: 12
  216. -- style flags: 0
  217. -- line height: 16
  218. -- part name: ADDRESS
  219.  
  220.  
  221. -- part 51 (field)
  222. -- low flags: 00
  223. -- high flags: 6000
  224. -- rect: left=161 top=83 right=104 bottom=486
  225. -- title width / last selected line: 0
  226. -- icon id / first selected line: 0 / 0
  227. -- text alignment: 0
  228. -- font id: 2
  229. -- text size: 12
  230. -- style flags: 0
  231. -- line height: 16
  232. -- part name: CSZ
  233.  
  234.  
  235. -- part 52 (field)
  236. -- low flags: 00
  237. -- high flags: 6007
  238. -- rect: left=51 top=200 right=290 bottom=466
  239. -- title width / last selected line: 0
  240. -- icon id / first selected line: 0 / 0
  241. -- text alignment: 0
  242. -- font id: 2
  243. -- text size: 12
  244. -- style flags: 0
  245. -- line height: 16
  246. -- part name: Notes
  247.  
  248.  
  249. -- part 56 (field)
  250. -- low flags: 00
  251. -- high flags: 6001
  252. -- rect: left=165 top=131 right=152 bottom=409
  253. -- title width / last selected line: 0
  254. -- icon id / first selected line: 0 / 0
  255. -- text alignment: 0
  256. -- font id: 2
  257. -- text size: 12
  258. -- style flags: 0
  259. -- line height: 16
  260. -- part name: Work Phone
  261.  
  262.  
  263. -- part 60 (button)
  264. -- low flags: 00
  265. -- high flags: 2004
  266. -- rect: left=63 top=158 right=177 bottom=98
  267. -- title width / last selected line: 0
  268. -- icon id / first selected line: 16560 / 16560
  269. -- text alignment: 1
  270. -- font id: 0
  271. -- text size: 12
  272. -- style flags: 0
  273. -- line height: 16
  274. -- part name: Dial Home
  275. ----- HyperTalk script -----
  276. on mouseUp
  277.   global mode,string,len,baud,stop,parity,data,ds
  278.   put OpenModem(baud,stop,parity,data,1,buf) into input
  279.   if "0123456789(" contains first character of Field "Home Phone"
  280.   then
  281.   put field "DialString" into DS
  282.   put DS && field "Home Phone" & return into string
  283.   put the length of string into len
  284.   put DoModem(mode,string,len) into str
  285. else
  286.   Ask "Dial what number?"
  287.   if it < 0 then exit mouseUp
  288.   else
  289.     put field "DialString" into DS
  290.     put DS && it & return into string
  291.     put the length of string into len
  292.     put DoModem(mode,string,len) into str
  293.   end if
  294. end if
  295. end mouseUp
  296.  
  297.  
  298.  
  299. -- part 62 (button)
  300. -- low flags: 00
  301. -- high flags: 2004
  302. -- rect: left=63 top=137 right=156 bottom=98
  303. -- title width / last selected line: 0
  304. -- icon id / first selected line: 16560 / 16560
  305. -- text alignment: 1
  306. -- font id: 0
  307. -- text size: 12
  308. -- style flags: 0
  309. -- line height: 16
  310. -- part name: Dial Work
  311. ----- HyperTalk script -----
  312. on mouseUp
  313.   global input,mode,string,len,baud,stop,parity,data,ds
  314.   put OpenModem(baud,stop,parity,data,1,buf) into input
  315.   if "0123456789(" contains first character of Field "Work Phone"
  316.   then
  317.   put field "DialString" into DS
  318.   put DS && field "Work Phone" & return into string
  319.   put the length of string into len
  320.   put DoModem(mode,string,len) into str
  321. else
  322.   Ask "Dial what number?"
  323.   if it < 0 then exit mouseUp
  324.   else
  325.     put field "DialString" into DS
  326.     put DS && it & return into string
  327.     put the length of string into len
  328.     put DoModem(mode,string,len) into str
  329.   end if
  330. end if
  331. end mouseUp
  332.  
  333.  
  334.  
  335. -- part 84 (button)
  336. -- low flags: 00
  337. -- high flags: E005
  338. -- rect: left=0 top=139 right=157 bottom=30
  339. -- title width / last selected line: 0
  340. -- icon id / first selected line: 0 / 0
  341. -- text alignment: 1
  342. -- font id: 0
  343. -- text size: 12
  344. -- style flags: 0
  345. -- line height: 16
  346. -- part name: T 1
  347. ----- HyperTalk script -----
  348. on mouseUp
  349.   set hilite of background button "T 1" to true
  350.   set hilite of background button "P 1" to false
  351.   put "ATDT" into field "DialString"
  352. end mouseUp
  353.  
  354.  
  355.  
  356. -- part 85 (button)
  357. -- low flags: 00
  358. -- high flags: A005
  359. -- rect: left=29 top=139 right=157 bottom=59
  360. -- title width / last selected line: 0
  361. -- icon id / first selected line: 0 / 0
  362. -- text alignment: 1
  363. -- font id: 0
  364. -- text size: 12
  365. -- style flags: 0
  366. -- line height: 16
  367. -- part name: P 1
  368. ----- HyperTalk script -----
  369. on mouseUp
  370.   set hilite of background button "T 1" to false
  371.   set hilite of background button "P 1" to true
  372.   put "ATDP" into field "DialString"
  373. end mouseUp
  374.  
  375.  
  376.  
  377. -- part 88 (field)
  378. -- low flags: 00
  379. -- high flags: 6000
  380. -- rect: left=161 top=103 right=124 bottom=270
  381. -- title width / last selected line: 0
  382. -- icon id / first selected line: 0 / 0
  383. -- text alignment: 0
  384. -- font id: 2
  385. -- text size: 12
  386. -- style flags: 0
  387. -- line height: 16
  388. -- part name: ZIP
  389.  
  390.  
  391. -- part 89 (field)
  392. -- low flags: 00
  393. -- high flags: 6001
  394. -- rect: left=165 top=171 right=192 bottom=409
  395. -- title width / last selected line: 0
  396. -- icon id / first selected line: 0 / 0
  397. -- text alignment: 0
  398. -- font id: 2
  399. -- text size: 12
  400. -- style flags: 0
  401. -- line height: 16
  402. -- part name: Pager
  403.  
  404.  
  405. -- part 90 (button)
  406. -- low flags: 00
  407. -- high flags: 2004
  408. -- rect: left=63 top=179 right=198 bottom=98
  409. -- title width / last selected line: 0
  410. -- icon id / first selected line: 16560 / 16560
  411. -- text alignment: 1
  412. -- font id: 0
  413. -- text size: 12
  414. -- style flags: 0
  415. -- line height: 16
  416. -- part name: Dial Pager
  417. ----- HyperTalk script -----
  418. on mouseUp
  419.   global mode,string,len,baud,stop,parity,data,ds
  420.   put OpenModem(baud,stop,parity,data,1,buf) into input
  421.   if "0123456789(" contains first character of Field "Pager"
  422.   then
  423.   put field "DialString" into DS
  424.   put DS && field "Pager" & return into string
  425.   put the length of string into len
  426.   put DoModem(mode,string,len) into str
  427. else
  428.   Ask "Dial what number?"
  429.   if it < 0 then exit mouseUp
  430.   else
  431.     put field "DialString" into DS
  432.     put DS && it & return into string
  433.     put the length of string into len
  434.     put DoModem(mode,string,len) into str
  435.   end if
  436. end if
  437. end mouseUp
  438.  
  439.  
  440.  
  441. -- part 95 (button)
  442. -- low flags: 00
  443. -- high flags: A003
  444. -- rect: left=424 top=137 right=185 bottom=498
  445. -- title width / last selected line: 0
  446. -- icon id / first selected line: 0 / 0
  447. -- text alignment: 1
  448. -- font id: 0
  449. -- text size: 12
  450. -- style flags: 0
  451. -- line height: 16
  452. -- part name: Hang Up
  453. ----- HyperTalk script -----
  454. on mouseUp
  455.   global string,len
  456.   put "ATH0" & return into string
  457.   put DoModem(mode,string,len) into str
  458. end mouseUp
  459.  
  460.  
  461.  
  462. -- part 96 (button)
  463. -- low flags: 00
  464. -- high flags: A004
  465. -- rect: left=2 top=70 right=90 bottom=91
  466. -- title width / last selected line: 0
  467. -- icon id / first selected line: 0 / 0
  468. -- text alignment: 1
  469. -- font id: 0
  470. -- text size: 12
  471. -- style flags: 0
  472. -- line height: 16
  473. -- part name: Sort by ZIP
  474. ----- HyperTalk script -----
  475. on mouseUp
  476.   answer "Sort by ZIP?" with "NO" or "YES"
  477.   if it is "YES"
  478.   then sort by first word of first line of field "ZIP"
  479. else if it is "NO"
  480. then exit mouseup
  481. end mouseUp
  482.  
  483.  
  484.  
  485. -- part 99 (button)
  486. -- low flags: 00
  487. -- high flags: 2000
  488. -- rect: left=12 top=177 right=199 bottom=37
  489. -- title width / last selected line: 0
  490. -- icon id / first selected line: 26635 / 26635
  491. -- text alignment: 1
  492. -- font id: 0
  493. -- text size: 12
  494. -- style flags: 0
  495. -- line height: 16
  496. -- part name: Dial Type
  497. ----- HyperTalk script -----
  498. on mouseUp
  499.   Visual effect zoom open
  500.   hide message window
  501.   push card
  502.   go to card id 9933
  503. end mouseUp
  504.  
  505.  
  506.  
  507. -- part 100 (button)
  508. -- low flags: 00
  509. -- high flags: 2000
  510. -- rect: left=3 top=245 right=290 bottom=46
  511. -- title width / last selected line: 0
  512. -- icon id / first selected line: 0 / 0
  513. -- text alignment: 1
  514. -- font id: 0
  515. -- text size: 12
  516. -- style flags: 0
  517. -- line height: 16
  518. -- part name: GO
  519. ----- HyperTalk script -----
  520. on mouseUp
  521.   push card
  522.   hide message window
  523.   go to card id 10369
  524. end mouseUp
  525.  
  526.  
  527.  
  528.  
  529. -- part 102 (field)
  530. -- low flags: 00
  531. -- high flags: 0002
  532. -- rect: left=3 top=156 right=174 bottom=44
  533. -- title width / last selected line: 0
  534. -- icon id / first selected line: 0 / 0
  535. -- text alignment: 0
  536. -- font id: 3
  537. -- text size: 12
  538. -- style flags: 0
  539. -- line height: 16
  540. -- part name: DialString
  541.  
  542.  
  543. -- part 104 (button)
  544. -- low flags: 80
  545. -- high flags: 8003
  546. -- rect: left=280 top=201 right=228 bottom=313
  547. -- title width / last selected line: 0
  548. -- icon id / first selected line: 0 / 0
  549. -- text alignment: 1
  550. -- font id: 0
  551. -- text size: 12
  552. -- style flags: 0
  553. -- line height: 16
  554. -- part name:      OK   3
  555. ----- HyperTalk script -----
  556. on mouseUp
  557.   show field "work phone"
  558.   show field "home phone"
  559.   show field "pager"
  560.   show field "notes"
  561.   hide background button "     OK   3"
  562. end mouseUp
  563.  
  564.  
  565.  
  566. -- part 108 (button)
  567. -- low flags: 00
  568. -- high flags: 2000
  569. -- rect: left=3 top=293 right=338 bottom=46
  570. -- title width / last selected line: 0
  571. -- icon id / first selected line: 0 / 0
  572. -- text alignment: 1
  573. -- font id: 0
  574. -- text size: 12
  575. -- style flags: 0
  576. -- line height: 16
  577. -- part name: Reset
  578. ----- HyperTalk script -----
  579. on mouseUp
  580.   global string,len
  581.   put "ATZ" & return into string
  582.   put DoModem(mode,string,len) into str
  583. end mouseUp
  584.  
  585.